home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / bbs_soft / pcbmail1.zip / PCBMAIL.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-06-01  |  2KB  |  153 lines

  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     String   STRING007
  27.     String   STRING008
  28.     String   STRING009
  29.     String   STRING010
  30.     String   STRING011
  31.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     STRING002 = ""
  35.     STRING001 = ""
  36.     STRING004 = "Y"
  37.     GetToken INTEGER001
  38.     GetToken STRING001
  39.     FOpen 1, PPEPath() + PPEName() + ".CNF", 0, 0
  40.     FGet 1, STRING003
  41.     FGet 1, STRING005
  42.     FGet 1, STRING006
  43.     FGet 1, STRING007
  44.     FGet 1, STRING008
  45.     FGet 1, STRING009
  46.     FGet 1, STRING010
  47.     FGet 1, STRING011
  48.     FClose 1
  49.     Select Case (INTEGER001)
  50.         Case 676
  51.             PrintLn STRING006
  52.         Case 0
  53.             Newline
  54.             InputYN STRING003, STRING004, DefColor()
  55.             Newline
  56.             If (STRING004 == "Y") Goto LABEL001
  57.             FCreate 1, "ABORTQWK", 1, 3
  58.             FClose 1
  59.             Goto LABEL002
  60.             :LABEL001
  61.             PrintLn STRING006
  62.             :LABEL002
  63.         Case 677
  64.             If (Exist("ABORTQWK")) Then
  65.                 Delete "ABORTQWK"
  66.                 If (STRING005 <> "") Then
  67.                     PrintLn STRING005
  68.                     Log STRING005, 0
  69.                 Endif
  70.             Else
  71.                 PrintLn STRING007
  72.             Endif
  73.         Case 679
  74.             PrintLn STRING008
  75.         Case 680
  76.             STRING002 = STRING009
  77.         Case 685
  78.             STRING002 = STRING010
  79.         Case 686
  80.             STRING002 = STRING011
  81.     End Select
  82.     If (STRING002 == "") Then
  83.         WrUSys
  84.     Else
  85.         RdUSys
  86.         If (Exist("PCBMAIL.TXT")) Then
  87.             FOpen 1, "PCBMAIL.TXT", 0, 0
  88.             STRING003 = "-"
  89.             While (STRING003 <> "") Do
  90.                 FGet 1, STRING003
  91.                 If (STRING003 <> "") PrintLn STRING003
  92.             EndWhile
  93.             FClose 1
  94.             Delete "PCBMAIL.TXT"
  95.         Endif
  96.         PrintLn 
  97.         PrintLn STRING002
  98.         If (STRING001 == "") Log STRING002, 0
  99.     Endif
  100.     End
  101.  
  102. ;------------------------------------------------------------------------------
  103. ;
  104. ; Usage report (before postprocessing)
  105. ;
  106. ; ■ Statements used :
  107. ;
  108. ;    1       End
  109. ;    23      Goto 
  110. ;    7       Let 
  111. ;    8       PrintLn 
  112. ;    15      If 
  113. ;    1       FCreate 
  114. ;    2       FOpen 
  115. ;    3       FClose 
  116. ;    9       FGet 
  117. ;    2       Delete 
  118. ;    2       Log 
  119. ;    1       InputYN 
  120. ;    2       Newline
  121. ;    2       GetToken 
  122. ;    1       WrUSys
  123. ;    1       RdUSys
  124. ;
  125. ;
  126. ; ■ Functions used :
  127. ;
  128. ;    2       +
  129. ;    10      ==
  130. ;    3       <>
  131. ;    13      !
  132. ;    1       PPEPath()
  133. ;    2       Exist()
  134. ;    1       DefColor()
  135. ;    1       PPEName()
  136. ;
  137. ;------------------------------------------------------------------------------
  138. ;
  139. ; Analysis flags : No flag
  140. ;
  141. ;------------------------------------------------------------------------------
  142. ;
  143. ; Postprocessing report
  144. ;
  145. ;    0       For/Next
  146. ;    1       While/EndWhile
  147. ;    4       If/Then or If/Then/Else
  148. ;    1       Select Case
  149. ;
  150. ;------------------------------------------------------------------------------
  151. ;                 AEGiS Corp - Break the routines, code against the machines!
  152. ;------------------------------------------------------------------------------
  153.